home *** CD-ROM | disk | FTP | other *** search
/ Windows News 2006 October / wn148cd2.iso / Windows / Travailler / QuickZip / quickzip_460013.exe / {app} / Scripts / File / Add With Password.akp < prev    next >
Text File  |  2005-06-28  |  318b  |  14 lines
  1. var p : TStrings;
  2.     i : integer;
  3.     k : string;
  4. begin
  5. p := Param;
  6. open(ChangeFileExt(p.strings[0],'.zip'));
  7. k := Readln('Please enter password');
  8. Password(k);
  9. for i := 0 to p.count -1 do
  10.   add(p.strings[i]);
  11. if k <> '' then begin DoAdd; application.terminate; end else
  12.   Showmessage('Cancelled');
  13. end.
  14.